program notavirus;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  x1, x0, x, y, y1, y0, r1, r2, r3, r4, i:integer;
  a1, a2, a3, a4, b1, b2, b3, b4, c1, c2, c3, c4: real;
begin
  writeln('enter coordinates of two circle central points');
  Readln (x0, y0, x1, y1,);
  writeln('enter radius of your circles');
  readln (r1, r2);
  x:=x1-x0;
  y:=y1-y0;
  if (r1>=r2) then
    r3:=r2-r1
  else
    r3:=r1-r2;
  r4:=r2+r1;
  if (sqrt(x*x+y*y)>= R1+R2) then
  begin
    b1:= (2*r3*y/x/x+sqrt(4*r3*r3*Y*Y/x/x/x/x-4*(1+y*y/x/x)*(r3*r3/x/x-1)))/(2+2*y*y/x/x);
    b2:= (2*r3*y/x/x-sqrt(4*r3*r3*Y*Y/x/x/x/x-4*(1+y*y/x/x)*(r3*r3/x/x-1)))/(2+2*y*y/x/x);
    a1:= sqrt(1-b1*b1);
    a2:= sqrt(1-b2*b2);
    c1:=-a1*x0-b1*y0+r1;
    c2:=-a2*x0-b2*y0+r1;
    b3:= (2*r4*y/x/x+sqrt(4*r4*r4*Y*Y/x/x/x/x-4*(1+y*y/x/x)*(r4*r4/x/x-1)))/(2+2*y*y/x/x);
    b4:= (2*r4*y/x/x-sqrt(4*r4*r4*Y*Y/x/x/x/x-4*(1+y*y/x/x)*(r4*r4/x/x-1)))/(2+2*y*y/x/x);
    a3:= sqrt(1-b1*b1);
    a4:= sqrt(1-b2*b2);
    c3:=-a1*x0-b1*y0-r1;
    c4:=-a2*x0-b2*y0-r1;

    Writeln ('Function 1:', a1:0:4,' ', b1:0:4,' ', c1:0:4,' Function 2:', a2:0:4,' ', b2:0:4,' ', c2:0:4,
             'Function 3:', a3:0:4,' ', b3:0:4,' ', c3:0:4,' Function 4:', a4:0:4,' ', b4:0:4,' ', c4:0:4);
  end
   else writeln ('FATAL ERROR FOUND SISTEM WILL BE DESTROYED IN : 5');
    for i:=4 downto 0 do
      writeln(i);
      sleep(1000);
  Readln;
end.
